H=-24576;E=-23336;B=-23924;A=B;for N=Hto E;%(N)=KP;next N;%(20050)=B-6;:return ;goto 9
{1}null .
{2}null .MU
{3}null .
{4}null BC=rnd (31)mul 8+1;FC=7;K=127;L=255;M=256;goto 6
{5}null for C=A-1to E-2step 3;&(17)=%(C)div M+K;&(18)=%(C+1)div M+K;&(19)=%(C+2)div M+K;for D=1to T;next D;next C;return 
{6}null NT=0;if B=0B=%(20050)+6;%(B-1)=1;E=B
{7}null for N=0to 2;print #1,E,;input ""J;if J>Minput " START AT:"A;goto 9
{8}null J=J-K;J=J+Lmul (J<0);@(N)=J;next N;NT=1;input " DURATION:"D;for N=1to D;for A=0to 2;%(E+A)=%(E+A)div Mmul M+@(A);next A;E=E+3;next N;run 
{9}null clear ;K=127;M=256
{10}null T=12
{11}null &(16)=49;&(21)=12;&(22)=204;gosub 5;gosub 5
{12}null for F=22to 16step -1;&(F)=0;next F;CY=16;print " REPLAY=1";print " INPUT=2";print " CHANGE=3";print " TAPE=4

null R=KP;if R=49goto 9
{14}null if R=50run 
{15}null if R=51input " CHORD ADDRESS?"E;run 
{16}null if R=52goto 18
{17}null goto 13
{18}null H=-24576;NT=1;:print ;clear ;print "H=",#1,H,";E=",E,";B=",B,";A=B;for N=Hto E;%(N)=KP;next N;%(20050)=B-6;:return ;goto 9
{19}null for N=Hto E;CY=40;TV=%(N);next N;:return 
null {-1}{-128}null {-128}null {-128}null null {1}{-128}{-128}{-128}{-128}{-128}{-128}{-78}{-128}{-128}{-78}{-128}{-128}{-68}{-128}{25}{-78}{-128}{25}{-91}{-128}{-27}{-78}{-128}{-27}{-68}{-128}{25}{-78}{-128}{25}{-99}{-128}{-27}{-78}{-128}{-27}{-71}{-128}N{-78}{-128}N{-95}{-128}{-27}{-78}{-128}{-27}{-68}{-128}{25}{-78}{-128}{25}{-91}{-128}{-27}{-78}{-128}{-27}{-68}{-128}{25}{-78}{-128}{25}{-91}{-128}{-27}{-78}{-128}{-27}{-68}{-128}{25}{-78}{-128}{25}{-99}{-128}{-27}{-78}{-128}{-27}{-71}{-128}N{-78}{-128}N{-95}{-128}{-27}{-78}{-128}{-27}{-91}{-68}{25}{-91}{-68}{25}{-78}{-128}{-128}{-78}{-128}{-128}{-8}{-78}{25}{-128}{-78}{-27}{-91}{-128}{-53}{-91}{-128}{-27}{-89}{-128}{-14}{-89}{-128}{-27}{-100}{-128}{-48}{-100}{-128}{-27}{-99}{-128}{-8}{-104}{-128}{-27}{-99}{-128}{-53}{-91}{-128}{-27}{-78}{-128}{-8}{-78}{-128}{-27}{-99}{-128}{-53}{-99}{-128}{-27}{-95}{-128}{-14}{-95}{-128}{-27}{-95}{-128}{-48}{-89}{-128}{-27}{-91}{-128}{-8}{-91}{-128}{-27}{-114}{-99}{-53}{-114}{-99}{-27}{-112}{-128}{-14}{-112}{-128}{-27}{-112}{-128}{-48}{-109}{-128}{-27}{-110}{-128}{-8}{-110}{-128}{-27}{-78}{-128}{-53}{-78}{-128}{-27}{-8}{-78}{25}{-128}{-78}{-27}{-91}{-128}{-53}{-91}{-128}{-27}{-89}{-128}{-14}{-89}{-128}{-27}{-100}{-128}{-48}{-100}{-128}{-27}{-99}{-128}{-8}{-104}{-128}{-27}{-99}{-128}{-53}{-91}{-128}{-27}{-78}{-128}{-8}{-78}{-128}{-27}{-99}{-128}{-53}{-99}{-128}{-27}{-95}{-128}{-14}{-95}{-128}{-27}{-95}{-128}{-48}{-89}{-128}{-27}{-91}{-128}{-8}{-91}{-128}{-27}{-114}{-99}{-53}{-114}{-99}{-27}{-112}{-128}{-14}{-112}{-128}{-27}{-112}{-128}{-48}{-109}{-128}{-27}{-110}{-128}{-8}{-110}{-128}{-8}{-91}{-128}{-128}{-91}{-128}{-128}{-99}{-128}{-53}{-99}{-128}{-68}{-95}{-128}{-48}{-95}{-128}{-68}{-91}{-128}{-38}{-91}{-128}{-68}{-89}{-128}{-33}{-89}{-128}{-68}{-91}{-68}{-38}{-95}{-68}{-38}{-91}{-68}{-38}{-89}{-68}{-48}{-84}{-53}{-68}{-84}{-53}{-68}{-89}{-53}{-68}{-89}{-53}{-68}{-95}{-128}{-48}{-95}{-128}{-61}{-91}{-128}{-38}{-91}{-128}{-61}{-89}{-128}{-27}{-89}{-128}{-61}{-84}{-128}{-21}{-84}{-128}{-61}{-89}{-61}{-27}{-91}{-61}{-27}{-89}{-61}{-27}{-84}{-61}{-38}{-78}{-61}{-14}{-78}{-61}{-14}{-128}{-78}{-128}{-128}{-78}{-128}{-100}{-128}!{-100}{-128}{-14}{-100}{-128}{-27}{-100}{-128}{-14}{-99}{-128}{25}{-99}{-128}{-8}{-100}{-128}{-27}{-99}{-128}{-8}{-95}{-128}{-14}{-95}{-128}{-27}{-95}{-128}{-48}{-95}{-128}{-27}{-91}{-128}{-8}{-91}{-128}{-27}{-78}{-128}{-53}{-78}{-128}{-27}{-100}{-95}!{-100}{-95}{-14}{-100}{-95}{-27}{-100}{-95}{-14}{-99}{-91}{25}{-99}{-91}{-8}{-100}{-128}{-27}{-99}{-128}{-8}{-95}{-89}N{-95}{-89}{-27}{-128}{-95}{-14}{-128}{-95}{-27}{-91}{-8}{25}{-91}{-8}{25}{-78}{-128}{-128}{-78}{-128}{-128}{-68}{-128}{25}{-78}{-128}{25}{-91}{-128}{-27}{-78}{-128}{-27}{-68}{-128}{25}{-78}{-128}{25}{-99}{-128}{-27}{-78}{-128}{-27}{-71}{-128}N{-78}{-128}N{-95}{-128}{-27}{-78}{-128}{-27}{-68}{-128}{25}{-78}{-128}{25}{-91}{-128}{-27}{-78}{-128}{-27}{-68}{-128}{25}{-78}{-128}{25}{-91}{-128}{-27}{-78}{-128}{-27}{-68}{-128}{25}{-78}{-128}{25}{-99}{-128}{-27}{-78}{-128}{-27}{-71}{-128}N{-78}{-128}N{-95}{-128}{-27}{-78}{-128}{-27}{-91}{-68}{25}{-91}{-68}{25}{-91}{-68}{25}{-128}{-128}{-128}null {-1}